home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rpgedi1a / clsarmor.cls < prev    next >
Text File  |  1999-09-15  |  730b  |  29 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsArmor"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. 'this class represents an Armor
  15. Dim itsIDNum As Integer
  16. Dim itsName As String
  17. Dim itsDesc As String
  18. Dim itsAC As Integer
  19. Dim itsMPPlus As Integer
  20. Dim itsHPPlus As Integer
  21. Dim itsINTPlus As Integer
  22. Dim itsSTAPlus As Integer
  23. Dim itsSTRPlus As Integer
  24. Dim itsMeleeDamPlus As Integer
  25. Dim itsPiercingDamPlus As Integer
  26. Dim itsWeight As Integer
  27.  
  28.  
  29.